COMMENT ⊗   VALID 00005 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	% This is a KLUDGE.
C00004 00003	charcode 0
C00005 00004	call char(001,1,0,0,0,0,0,0,0,0,0,0,0,0).
C00014 00005	incx 0 call char(121,1,1,1,1,1,1,1,1,1,1,1,1,11)
C00016 ENDMK
C⊗;
% This is a KLUDGE.
% If you happen to read it, please don't tell anybody that DEK wrote it.
% (It was the easiest way to bootstrap a test "gray font" before the
% new MF was "quite" working.)

% The following code is for new MF.
delimiters();

ppi=384; % pixels per inch
cw=(4/ppi)*72.27; % points per 4 pixels
designsize:=8cw;

edges e;

def \\ = {curl 1} enddef;

def pix(expr x,y)=
 addto e contour (x,y)\\..(x+1,y)\\..(x+1,y+1)\\..(x,y+1)\\..cycle enddef;
x0=0; x1=1; x2=2; x3=3; x4=3; x5=2; x6=1; x7=0;
y0=2; y1=3; y2=3; y3=2; y4=1; y5=0; y6=0; y7=1;
cpen; 1 draw 1..2; draw 3..4; draw 5..6; draw 7..0.

subroutine char(var c,
	var aa, var ab, var ac, var ad, var ae, var af,
	var ag, var ah, var ai, var aj, var ak, var al,
	var d):
charcode c;
if aa=1: incy 0; call gp; fi;
if ab=1: incy -4; call gp; fi;
if ac=1: incy -8; call gp; fi;
if ad=1: incy -12; call gp; fi;
if ae=1: incy -16; call gp; fi;
if af=1: incy -20; call gp; fi;
if ag=1: incy -24; call gp; fi;
if ah=1: incy -28; call gp; fi;
if ai=1: incy -32; call gp; fi;
if aj=1: incy -36; call gp; fi;
if ak=1: incy -40; call gp; fi;
if al=1: incy -44; call gp; fi;
charwd cw;
chardw 4;
charht cw;
chardp cw*d;
charic 0.

texinfo 0, cw, 0, 0, cw, cw, 0, cw/2;
charcode 0;
x0=y0=-0.5;
cpen; 12 draw 0;
charwd 3cw;
charht 3cw;
chardp 0;
charic 0;
chardw 12.
call char(001,1,0,0,0,0,0,0,0,0,0,0,0,0).
call char(002,0,1,0,0,0,0,0,0,0,0,0,0,1).
call char(003,1,1,0,0,0,0,0,0,0,0,0,0,1).
call char(004,0,0,1,0,0,0,0,0,0,0,0,0,2).
call char(005,1,0,1,0,0,0,0,0,0,0,0,0,2).
call char(006,0,1,1,0,0,0,0,0,0,0,0,0,2).
call char(007,1,1,1,0,0,0,0,0,0,0,0,0,2).
call char(008,0,0,0,1,0,0,0,0,0,0,0,0,3).
call char(009,1,0,0,1,0,0,0,0,0,0,0,0,3).
call char(010,0,1,0,1,0,0,0,0,0,0,0,0,3).
call char(011,1,1,0,1,0,0,0,0,0,0,0,0,3).
call char(012,0,0,1,1,0,0,0,0,0,0,0,0,3).
call char(013,1,0,1,1,0,0,0,0,0,0,0,0,3).
call char(014,0,1,1,1,0,0,0,0,0,0,0,0,3).
call char(015,1,1,1,1,0,0,0,0,0,0,0,0,3).
call char(016,0,0,0,0,1,0,0,0,0,0,0,0,4).
call char(017,1,0,0,0,1,0,0,0,0,0,0,0,4).
call char(018,0,1,0,0,1,0,0,0,0,0,0,0,4).
call char(019,1,1,0,0,1,0,0,0,0,0,0,0,4).
call char(020,0,0,1,0,1,0,0,0,0,0,0,0,4).
call char(021,1,0,1,0,1,0,0,0,0,0,0,0,4).
call char(022,0,1,1,0,1,0,0,0,0,0,0,0,4).
call char(023,1,1,1,0,1,0,0,0,0,0,0,0,4).
call char(024,0,0,0,1,1,0,0,0,0,0,0,0,4).
call char(025,1,0,0,1,1,0,0,0,0,0,0,0,4).
call char(026,0,1,0,1,1,0,0,0,0,0,0,0,4).
call char(027,1,1,0,1,1,0,0,0,0,0,0,0,4).
call char(028,0,0,1,1,1,0,0,0,0,0,0,0,4).
call char(029,1,0,1,1,1,0,0,0,0,0,0,0,4).
call char(030,0,1,1,1,1,0,0,0,0,0,0,0,4).
call char(031,1,1,1,1,1,0,0,0,0,0,0,0,4).
call char(032,0,0,0,0,0,1,0,0,0,0,0,0,5).
call char(033,1,0,0,0,0,1,0,0,0,0,0,0,5).
call char(034,0,1,0,0,0,1,0,0,0,0,0,0,5).
call char(035,1,1,0,0,0,1,0,0,0,0,0,0,5).
call char(036,0,0,1,0,0,1,0,0,0,0,0,0,5).
call char(037,1,0,1,0,0,1,0,0,0,0,0,0,5).
call char(038,0,1,1,0,0,1,0,0,0,0,0,0,5).
call char(039,1,1,1,0,0,1,0,0,0,0,0,0,5).
call char(040,0,0,0,1,0,1,0,0,0,0,0,0,5).
call char(041,1,0,0,1,0,1,0,0,0,0,0,0,5).
call char(042,0,1,0,1,0,1,0,0,0,0,0,0,5).
call char(043,1,1,0,1,0,1,0,0,0,0,0,0,5).
call char(044,0,0,1,1,0,1,0,0,0,0,0,0,5).
call char(045,1,0,1,1,0,1,0,0,0,0,0,0,5).
call char(046,0,1,1,1,0,1,0,0,0,0,0,0,5).
call char(047,1,1,1,1,0,1,0,0,0,0,0,0,5).
call char(048,0,0,0,0,1,1,0,0,0,0,0,0,5).
call char(049,1,0,0,0,1,1,0,0,0,0,0,0,5).
call char(050,0,1,0,0,1,1,0,0,0,0,0,0,5).
call char(051,1,1,0,0,1,1,0,0,0,0,0,0,5).
call char(052,0,0,1,0,1,1,0,0,0,0,0,0,5).
call char(053,1,0,1,0,1,1,0,0,0,0,0,0,5).
call char(054,0,1,1,0,1,1,0,0,0,0,0,0,5).
call char(055,1,1,1,0,1,1,0,0,0,0,0,0,5).
call char(056,0,0,0,1,1,1,0,0,0,0,0,0,5).
call char(057,1,0,0,1,1,1,0,0,0,0,0,0,5).
call char(058,0,1,0,1,1,1,0,0,0,0,0,0,5).
call char(059,1,1,0,1,1,1,0,0,0,0,0,0,5).
call char(060,0,0,1,1,1,1,0,0,0,0,0,0,5).
call char(061,1,0,1,1,1,1,0,0,0,0,0,0,5).
call char(062,0,1,1,1,1,1,0,0,0,0,0,0,5).
call char(063,1,1,1,1,1,1,0,0,0,0,0,0,5).
call char(064,0,0,0,0,0,0,1,0,0,0,0,0,6).
call char(065,0,0,0,0,0,1,1,0,0,0,0,0,6).
call char(066,0,0,0,0,1,1,1,0,0,0,0,0,6).
call char(067,0,0,0,1,1,1,1,0,0,0,0,0,6).
call char(068,0,0,1,1,1,1,1,0,0,0,0,0,6).
call char(069,0,1,1,1,1,1,1,0,0,0,0,0,6).
call char(070,1,1,1,1,1,1,1,0,0,0,0,0,6).
call char(071,0,0,0,0,0,0,0,1,0,0,0,0,7).
call char(072,0,0,0,0,0,0,1,1,0,0,0,0,7).
call char(073,0,0,0,0,0,1,1,1,0,0,0,0,7).
call char(074,0,0,0,0,1,1,1,1,0,0,0,0,7).
call char(075,0,0,0,1,1,1,1,1,0,0,0,0,7).
call char(076,0,0,1,1,1,1,1,1,0,0,0,0,7).
call char(077,0,1,1,1,1,1,1,1,0,0,0,0,7).
call char(078,1,1,1,1,1,1,1,1,0,0,0,0,7).
call char(079,0,0,0,0,0,0,0,0,1,0,0,0,8).
call char(080,0,0,0,0,0,0,0,1,1,0,0,0,8).
call char(081,0,0,0,0,0,0,1,1,1,0,0,0,8).
call char(082,0,0,0,0,0,1,1,1,1,0,0,0,8).
call char(083,0,0,0,0,1,1,1,1,1,0,0,0,8).
call char(084,0,0,0,1,1,1,1,1,1,0,0,0,8).
call char(085,0,0,1,1,1,1,1,1,1,0,0,0,8).
call char(086,0,1,1,1,1,1,1,1,1,0,0,0,8).
call char(087,1,1,1,1,1,1,1,1,1,0,0,0,8).
call char(088,0,0,0,0,0,0,0,0,0,1,0,0,9).
call char(089,0,0,0,0,0,0,0,0,1,1,0,0,9).
call char(090,0,0,0,0,0,0,0,1,1,1,0,0,9).
call char(091,0,0,0,0,0,0,1,1,1,1,0,0,9).
call char(092,0,0,0,0,0,1,1,1,1,1,0,0,9).
call char(093,0,0,0,0,1,1,1,1,1,1,0,0,9).
call char(094,0,0,0,1,1,1,1,1,1,1,0,0,9).
call char(095,0,0,1,1,1,1,1,1,1,1,0,0,9).
call char(096,0,1,1,1,1,1,1,1,1,1,0,0,9).
call char(097,1,1,1,1,1,1,1,1,1,1,0,0,9).
call char(098,0,0,0,0,0,0,0,0,0,0,1,0,10).
call char(099,0,0,0,0,0,0,0,0,0,1,1,0,10).
call char(100,0,0,0,0,0,0,0,0,1,1,1,0,10).
call char(101,0,0,0,0,0,0,0,1,1,1,1,0,10).
call char(102,0,0,0,0,0,0,1,1,1,1,1,0,10).
call char(103,0,0,0,0,0,1,1,1,1,1,1,0,10).
call char(104,0,0,0,0,1,1,1,1,1,1,1,0,10).
call char(105,0,0,0,1,1,1,1,1,1,1,1,0,10).
call char(106,0,0,1,1,1,1,1,1,1,1,1,0,10).
call char(107,0,1,1,1,1,1,1,1,1,1,1,0,10).
call char(108,1,1,1,1,1,1,1,1,1,1,1,0,10).
call char(109,0,0,0,0,0,0,0,0,0,0,0,1,11).
call char(110,0,0,0,0,0,0,0,0,0,0,1,1,11).
call char(111,0,0,0,0,0,0,0,0,0,1,1,1,11).
call char(112,0,0,0,0,0,0,0,0,1,1,1,1,11).
call char(113,0,0,0,0,0,0,0,1,1,1,1,1,11).
call char(114,0,0,0,0,0,0,1,1,1,1,1,1,11).
call char(115,0,0,0,0,0,1,1,1,1,1,1,1,11).
call char(116,0,0,0,0,1,1,1,1,1,1,1,1,11).
call char(117,0,0,0,1,1,1,1,1,1,1,1,1,11).
call char(118,0,0,1,1,1,1,1,1,1,1,1,1,11).
call char(119,0,1,1,1,1,1,1,1,1,1,1,1,11).
call char(120,1,1,1,1,1,1,1,1,1,1,1,1,11).
incx 0; call char(121,1,1,1,1,1,1,1,1,1,1,1,1,11);
incx 4; call char(121,1,1,1,1,1,1,1,1,1,1,1,1,11);
charwd 2cw; chardw 8.
incx 0; call char(122,1,1,1,1,1,1,1,1,1,1,1,1,11);
incx 4; call char(122,1,1,1,1,1,1,1,1,1,1,1,1,11);
incx 8; call char(122,1,1,1,1,1,1,1,1,1,1,1,1,11);
incx 12; call char(122,1,1,1,1,1,1,1,1,1,1,1,1,11);
charwd 4cw; chardw 16.
charlist 120, 121, 122;